﻿Public NotInheritable Class AboutBox

   Private Sub AboutBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      ' Set the title of the form.
      Dim ApplicationTitle As String
      If My.Application.Info.Title <> "" Then
         ApplicationTitle = My.Application.Info.Title
      Else
         ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
      End If
      Me.Text = String.Format("About {0}", ApplicationTitle)
      ' Initialize all of the text displayed on the About Box.
      ' TODO: Customize the application's assembly information in the "Application" pane of the project 
      '    properties dialog (under the "Project" menu).
      Me.lblName.Text = My.Application.Info.ProductName
      Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
      Me.lblCopyright.Text = My.Application.Info.Copyright
      'Me.TextBoxDescription.Text = My.Application.Info.Description
   End Sub

   Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
      Me.Close()
   End Sub

   Private Sub lnkProject_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkProject.LinkClicked
      Try
         Diagnostics.Process.Start(lnkProject.Text)
      Catch
      End Try
   End Sub
End Class
